;;; This file is part of guix-bavier.git
;;; Copyright © 2019,2020 Eric Bavier <bavier@posteo.net>
;;; License: GPLv3+

(define-module (bavier licenses)
  #:use-module (guix licenses)
  #:export (non-redistributable-assets
            cc-by-nc-sa3.0
            permission-for-commercial))

(define license
  (@@ (guix licenses) license))

(define* (non-redistributable-assets uri #:optional (comment ""))
  (license "non-redistributable-assets"
	   uri
	   (string-append
	    "This software contains assets which cannot be freely redistributed.  "
	    comment)))

(define cc-by-nc-sa3.0
  (license "CC BY-NC-SA 3.0"
           "https://creativecommons.org/licenses/by-nc-sa/3.0/"
           "https://www.gnu.org/licenses/license-list.html#CC-BY-NC"))

(define (permission-for-commercial uri)
  (license "permission-for-commercial"
           uri
           "Requires written permission for author to use in commercial applications."))
